Labels:text | screenshot | font | number | display | software OCR: MENU :: #Library1 :: aFormLoader proc aOpenForm(aFile String, Name of form file aTitle String) Title for form window String Non null when form couldn't be loaded var FCrntForm Form ; Handle to form IF'IN. I. nErr SmallInt Error number for display in aErr aErr String Error message endVar aErr == !! tru if not forntForm.open( aFile ) then nErr = errorcode( ) aErr = " >" + errorMessage( ) aErr = "Cannot open: \"+ alitle + "\\nFile: "+ aFile+" .\nParadox error: + strual(nErr) + aErr else fCrntForm.setTitle( aTitle ) endIf ;not forntForm.open( aFile ) onFail aErr = ""Error occured when trying to open form file: " + aFile +". "+ errorMessage( ) endTry return aErr endProc Edit Line: 1 Col: 1
